home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / Zuper / Iamhere.dir / 00068_Script_68 < prev    next >
Text File  |  1999-04-26  |  1KB  |  65 lines
  1. global invar
  2.  
  3. on startmovie
  4.   preload
  5.   set invar to 1
  6.   set the editable of member "nameinput" to true
  7. end
  8.  
  9. on closeWindow
  10.   sound stop 1
  11.   sound stop 2
  12.   sound stop 3
  13.   sound stop 4
  14.   tell the stage to hideMovie
  15.   tell the stage to go to frame "iface"
  16. end closeWindow
  17.  
  18. on keyDown
  19.   if the key = "q" then
  20.     set i to 1
  21.     repeat while i < 5
  22.       sound stop i
  23.       set i to i + 1
  24.     end repeat
  25.     play done
  26.   end if
  27. end keyDown
  28.  
  29. on hangin
  30.   if invar < 10 then
  31.     go the frame
  32.     set invar to invar + 1
  33.   else
  34.     set invar to 1
  35.   end if
  36. end
  37.  
  38. on clicksound
  39.   if the mousedown then
  40.     set randsound to random(3)
  41.     if randsound = 1 then
  42.       puppetsound 3, "i am here"
  43.     end if    
  44.     if randsound = 2 then
  45.       puppetsound 3, "i can feel you"
  46.     end if    
  47.     if randsound = 3 then
  48.       puppetsound 3, "touch me"
  49.     end if    
  50.   end if
  51. end
  52.  
  53. on remainhere
  54.   if the locH of sprite 1 < 105 then set the locH of sprite 1 to 105
  55.   if the locH of sprite 1 > 535 then set the locH of sprite 1 to 535
  56.   if the locV of sprite 1 < 85 then set the locV of sprite 1 to 85
  57.   if the locV of sprite 1 > 395 then set the locV of sprite 1 to 395
  58. end
  59.  
  60. on followmouse son,factor
  61.   set differenceH to the mouseH - the locH of sprite son
  62.   set the locH of sprite son to the mouseH - differenceH*factor 
  63.   set differenceV to the mouseV - the locV of sprite son
  64.   set the locV of sprite son to the mouseV - differenceV*factor
  65. end